home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmsstins.arc / CHAT.HST next >
Encoding:
Text File  |  1987-09-20  |  790 b   |  29 lines
  1.  
  2. .  Chat.HST  **** Chat Mode Selected ****
  3.  
  4.    Writeln " "
  5.    Writeln "You are in Chat Mode."
  6.    Writeln "Turn on your 'Local Echo' (Alt-E in Qmodem) and"
  7.    Writeln "'Add-Linefeeds' (Shift-TAB in Qmodem)."
  8.    Writeln " "
  9.    Writeln 'Enter "MAINMENU*" to Return to HOST.'
  10.    Writeln " "
  11.    Timeout 600 Chat3_        ; every 5 minutes, display a canned
  12.                              ; message
  13.    Turnon Echo Linefeed
  14.  
  15. Chat2_:
  16.    Waitfor "mainmenu*"
  17.    Turnoff Echo Linefeed
  18.    Writeln "Chat mode ended."
  19.    Writeln "Turn off your 'Local Echo' (Alt-E in Qmodem) and"
  20.    Writeln "'Add-Linefeeds' (Shift-TAB in Qmodem)."
  21.    Writeln " "
  22.    Return
  23.  
  24. Chat3_:
  25.    Writeln " "
  26.    Writeln "Chat still active, 'MAINMENU*' to Exit.  Continue..."
  27.    Writeln " "
  28.    Goto Chat2_
  29.